Grid10 - Application

Reflection

A = (3.7375646715478257, 2.4636564334588646)
B = (3.9508496190172617, 3.216426836292166)
dAB = Distance(A, B)
θ = If(x(A) ≠ x(B), atan(Slope[Line[A, B]]), If[x(A) ≟ x(B) ∧ (y(B) > y(A)), 1.5707963267948966, If[x(A) ≟ x(B) ∧ (y(B) < y(A)), -1.5707963267948966]])
m = 2 (slider from 0 to 10, step 1)
n = 2 (slider from 0 to 10, step 1)
a = Segment(A, B)
e_m = 4 (slider from 1 to 10, step 1)
e_n = 3 (slider from 1 to 10, step 1)
GridAllParallelABsegments = Sequence(Segment[(x(A) - n * dAB * cos(θ) - i * dAB * sin(θ), y(A) - n * dAB * sin(θ) + i * dAB * cos(θ)), (x(A) + n * dAB * cos(θ) - i * dAB * sin(θ), y(A) + n * dAB * sin(θ) + i * dAB * cos(θ))], i, -m, m, 1 / e_m)
GridAllPerpABsegments = Sequence(Segment[(x(A) + j * dAB * cos(θ) - m * dAB * sin(θ), y(A) + j * dAB * sin(θ) + m * dAB * cos(θ)), (x(A) + j * dAB * cos(θ) + m * dAB * sin(θ), y(A) + j * dAB * sin(θ) - m * dAB * cos(θ))], j, -n, n, 1 / e_n)
C = (3.863026405353376, 0.5315457328533902)
D = (6.1840684807560535, 4.985437282950424)
b = Line(C, D)
E = (5.606944505250523, 2.1500020989449884)
F = (5.845321799481068, 3.6680890779921462)
G = (7.087392964156014, 3.567719690947706)
H = (6.874108016686579, 2.7898569413532948)
I = (7.388501125289335, 2.7020337276894093)
J = (7.45123199219211, 2.099817405422768)
K = (6.359714908083824, 2.8651339816366246)
poly1, e, f, g, h, i, j, k = Polygon(E, F, G, H, I, J, K)
E' = Mirror(E, b)
F' = Mirror(F, b)
G' = Mirror(G, b)
H' = Mirror(H, b)
I' = Mirror(I, b)
J' = Mirror(J, b)
K' = Mirror(K, b)
poly1', e', f', g', h', i', j', k' = Polygon(E', F', G', H', I', J', K')
c = false